﻿Imports System

Namespace System.Workflow.ComponentModel.Serialization
    <AttributeUsage(AttributeTargets.Assembly, AllowMultiple:=True)> _
    Public NotInheritable Class XmlnsPrefixAttribute
        Inherits Attribute
        ' Methods
        Public Sub New(ByVal xmlNamespace As String, ByVal prefix As String)
            If (xmlNamespace Is Nothing) Then
                Throw New ArgumentNullException("xmlNamespace")
            End If
            If (prefix Is Nothing) Then
                Throw New ArgumentNullException("prefix")
            End If
            Me.xmlNamespace = xmlNamespace
            Me.prefix = prefix
        End Sub


        ' Properties
        Public ReadOnly Property Prefix As String
            Get
                Return Me.prefix
            End Get
        End Property

        Public ReadOnly Property XmlNamespace As String
            Get
                Return Me.xmlNamespace
            End Get
        End Property


        ' Fields
        Private prefix As String
        Private xmlNamespace As String
    End Class
End Namespace

